#!/usr/b}in/perl
open(FILEIN,"p96.fic"); 
# on ouvre le fichier qu'on va lire : ici, c'est p96.fic
while ($ligne = <FILEIN>){ #tant qu'il y a quelque chose à lire
if ($ligne=~/\w+/){ 
# si la ligne contient des caractères (on veut éviter les lignes blanches)
		@tableau=split(/ /,$ligne); 
		# on crée un tableau à partir de chaque ligne 
		#puis on segmente celle-ci grâce à split. 
		#On prend l'espace comme séparateur
		$compteur=$#tableau+1; 
		#$#tableau donne l'indice du dernier élément, en lui ajoutant 1, 
		#on sait combien il y a d'éléments dans le tableau
		$grandcompteur=$grandcompteur+$compteur; 
		#on incrémente le compteur général avec les valeurs de chaque phrase
		}#fin de if
		} #fin de while
print "Il y a $grandcompteur mots dans ce texte";
close(FILEIN); # on ferme le fichier en lecture

